home *** CD-ROM | disk | FTP | other *** search
/ Clickx 23 / Clickx 23.iso / Menu.dcr / 00009_list_files.ls < prev    next >
Encoding:
Text File  |  2005-09-14  |  4.6 KB  |  164 lines
  1. property pLine, pItem, pIDlist
  2. global gPlatform, gGroep, gFile
  3.  
  4. on beginSprite me
  5.   pIDlist = []
  6.   if gPlatform = "PC" then
  7.     Files = getFilesPC(gGroep)
  8.   else
  9.     Files = getFilesMAC(gGroep)
  10.   end if
  11.   sprite(me.spriteNum).member.text = EMPTY
  12.   repeat with i = 1 to 17
  13.     if i <= Files.count then
  14.       sprite(me.spriteNum).member.line[i] = Files[i].naam
  15.       pIDlist.add(Files[i].id)
  16.     end if
  17.   end repeat
  18.   pLine = 1
  19.   pItem = 1
  20.   sprite(me.spriteNum).member.color = rgb("#000000")
  21.   sprite(me.spriteNum).member.line[pItem].color = rgb("#F80808")
  22.   if pIDlist = [] then
  23.     alert("ERROR: Geen files in deze groep!")
  24.     go("menu")
  25.     exit
  26.   else
  27.     showFileInfo()
  28.   end if
  29. end
  30.  
  31. on mouseWithin me
  32.   newLine = sprite(me.spriteNum).pointToLine(the mouseLoc)
  33.   if newLine <> -1 then
  34.     if pLine <> -1 then
  35.       if newLine <> pLine then
  36.         if (pLine <> pItem) and (pLine <> 0) then
  37.           sprite(me.spriteNum).member.line[pLine].color = rgb("#000000")
  38.         end if
  39.         pLine = newLine
  40.         if pLine <> pItem then
  41.           sprite(me.spriteNum).member.line[pLine].color = rgb("#F3D532")
  42.         end if
  43.       end if
  44.     end if
  45.   end if
  46. end
  47.  
  48. on mouseLeave me
  49.   if pLine <> pItem then
  50.     sprite(me.spriteNum).member.line[pLine].color = rgb("#000000")
  51.   end if
  52.   pLine = 0
  53. end
  54.  
  55. on mouseUp me
  56.   sprite(me.spriteNum).member.line[pItem].color = rgb("#000000")
  57.   sprite(me.spriteNum).member.line[pLine].color = rgb("#F80808")
  58.   pItem = pLine
  59.   showFileInfo()
  60. end
  61.  
  62. on showFileInfo
  63.   if gPlatform = "PC" then
  64.     groepen = getGroupsPC()
  65.     fileDetails = getFileDetailsPC(pIDlist[pItem])
  66.   else
  67.     groepen = getGroupsMAC()
  68.     fileDetails = getFileDetailsMAC(pIDlist[pItem])
  69.   end if
  70.   afbeelding = SearchAndReplace(fileDetails[1].image, ".gif", EMPTY)
  71.   afbeelding = SearchAndReplace(afbeelding, ".jpg", EMPTY)
  72.   afbeelding = SearchAndReplace(afbeelding, ".psd", EMPTY)
  73.   if member(afbeelding).name <> EMPTY then
  74.     sprite(11).member = member(afbeelding)
  75.   else
  76.     sprite(11).member = member("dummy")
  77.   end if
  78.   member("caption").text = fileDetails[1].Caption
  79.   member("caption2").text = fileDetails[1].Caption
  80.   if member("caption").lineCount >= 9 then
  81.     member("caption2").boxType = #scroll
  82.   else
  83.     member("caption2").boxType = #fixed
  84.   end if
  85.   member("caption2").scrollTop = 1
  86.   if ((gPlatform = "PC") and (gGroep = 28) and (pItem = 4)) or ((gPlatform = "MAC") and (gGroep = 25) and (pItem = 4)) then
  87.     sprite(13).visible = 0
  88.     sprite(33).visible = 0
  89.     sprite(34).visible = 0
  90.     sprite(35).visible = 0
  91.     sprite(37).visible = 1
  92.     sprite(38).visible = 1
  93.     sprite(39).visible = 1
  94.   else
  95.     sprite(13).visible = 1
  96.     sprite(33).visible = 0
  97.     sprite(34).visible = 0
  98.     sprite(35).visible = 0
  99.     sprite(37).visible = 0
  100.     sprite(38).visible = 0
  101.     sprite(39).visible = 0
  102.     sprite(13).pLink = fileDetails[1].url
  103.     if offset("kinepolis", sprite(13).pLink) <> 0 then
  104.       sprite(13).member.fontSize = 14
  105.     else
  106.       sprite(13).member.fontSize = 9
  107.     end if
  108.   end if
  109.   member("specs").text = EMPTY
  110.   if fileDetails[1].type <> EMPTY then
  111.     put "Type:" && fileDetails[1].type & RETURN after member "specs"
  112.   end if
  113.   if fileDetails[1].prijs <> EMPTY then
  114.     put "Prijs:" && fileDetails[1].prijs & RETURN after member "specs"
  115.   end if
  116.   if fileDetails[1].grootte <> EMPTY then
  117.     put "Grootte:" && fileDetails[1].grootte & RETURN after member "specs"
  118.   end if
  119.   if fileDetails[1].auteur <> EMPTY then
  120.     put "Auteur:" && fileDetails[1].auteur & RETURN after member "specs"
  121.   end if
  122.   if member("specs").text = EMPTY then
  123.     member("titel specs").text = EMPTY
  124.   else
  125.     member("titel specs").text = "SPECS"
  126.   end if
  127.   if gPlatform = "PC" then
  128.     member("req").text = EMPTY
  129.     if fileDetails[1].win95 then
  130.       put "-95" after member "req"
  131.     end if
  132.     if fileDetails[1].win98 then
  133.       put "-98" after member "req"
  134.     end if
  135.     if fileDetails[1].winME then
  136.       put "-ME" after member "req"
  137.     end if
  138.     if fileDetails[1].winNT then
  139.       put "-NT" after member "req"
  140.     end if
  141.     if fileDetails[1].win2000 then
  142.       put "-2000" after member "req"
  143.     end if
  144.     if fileDetails[1].winXP then
  145.       put "-XP" after member "req"
  146.     end if
  147.     if fileDetails[1].win2003 then
  148.       put "-2003" after member "req"
  149.     end if
  150.     if member("req").text.char[1] = "-" then
  151.       delete member("req").char[1]
  152.     end if
  153.   else
  154.     member("req").text = fileDetails[1].OS
  155.   end if
  156.   sprite(20).pFile = fileDetails[1].BestandsNaam
  157.   if fileDetails[1].knoptekst = EMPTY then
  158.     sprite(20).member = member("dummy")
  159.   else
  160.     sprite(20).member = member("install_knop_N")
  161.   end if
  162.   sprite(21).member.text = fileDetails[1].knoptekst
  163. end
  164.